home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0007_FILEXIST.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  586b  |  31 lines

  1. { 1 }
  2.  
  3. Function FileExist(FileName : String) : Boolean;
  4. begin
  5.   FileExist := (FSearch(FileName, '') <> '')
  6. end;      (* FileExist.                                           *)
  7.  
  8. { 2 }
  9.  
  10. Function FileExist(FileName : String) : Boolean;
  11. Var
  12.   SRec : SearchRec;
  13. begin
  14.   FindFirst(FileName, AnyFile, SRec);
  15.   FileExist := (DosError = 0);
  16. end;
  17.  
  18. { 3 }
  19.  
  20. Function FileExists(FileName : String) : Boolean;
  21. Var
  22.   DirInfo : SearchRec;
  23. begin
  24.   FindFirst(FileName, AnyFile, DirInfo);
  25.   if (DosError = 0) then
  26.     FileExists := True
  27.   else
  28.     FileExists := False;
  29. end;
  30.  
  31.